home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / m2pica.lha / M2Picasso / Txt / vilintuisupL.def < prev   
Encoding:
Modula Definition  |  1994-11-17  |  2.8 KB  |  90 lines
  1. (*******************************************************************************
  2.  : Program.         VilIntuiSupL.def
  3.  : Author.          Carsten Wartmann (Crazy Video)
  4.  : Address.         Wutzkyallee 83, 12353 Berlin
  5.  : Phone.           030/6614776
  6.  : E-Mail           C.Wartmann@AMBO.in-berlin.de (bevorzugt)
  7.  : E-Mail           Carsten_Wartmann@tfh-berlin.de
  8.  : Version.         1.0
  9.  : Date.            16.Nov.1994
  10.  : Copyright.       Freeware
  11.  : Language.        Modula-2
  12.  : Compiler.        M2Amiga V4.3d
  13.  : Contents.        Macht die VilIntuiSup.library für MODULA-2 (M2Amiga)
  14.  : Contents.        Programmierer nutzbar.
  15. *******************************************************************************)
  16.  
  17.  
  18. DEFINITION MODULE VilIntuiSupL{"vilintuisup.library",2} ;
  19.  
  20.  
  21. FROM SYSTEM     IMPORT ADDRESS,BYTE,ADR ;
  22. FROM ExecD      IMPORT ListPtr ;
  23. FROM IntuitionD IMPORT ScreenPtr,RememberPtr ;
  24. FROM UtilityD   IMPORT TagItemPtr,Tag ;
  25.  
  26. IMPORT vil:VilIntuiSupD,R ;
  27.  
  28.  
  29.  
  30.  
  31. (* Old function, do not use in future !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*)
  32. PROCEDURE OpenVillageScreen(mode{R.A0} : vil.DimensionPtr) : ScreenPtr ;
  33.           CODE -30 ;
  34.  
  35. PROCEDURE OpenVillageScreenTagList(tags{R.A0} : TagItemPtr) : ScreenPtr ;
  36.           CODE -114 ;
  37.  
  38. PROCEDURE CloseVillageScreen(screen{R.A0} : ScreenPtr) ;
  39.           CODE -36 ;
  40.  
  41. PROCEDURE LockVillageScreen(screen{R.A0}   : ScreenPtr) : ADDRESS ;
  42.           CODE -42 ;
  43. PROCEDURE UnLockVillageScreen(screen{R.A0} : ScreenPtr) ;
  44.           CODE -48 ;
  45.  
  46. PROCEDURE GetMemSize(screen{R.A0} : ScreenPtr) : LONGCARD ;
  47.           CODE -72 ;
  48.  
  49. PROCEDURE VillageScreenData(screen{R.A0} : ScreenPtr ;
  50.                             tag{R.D0}    : Tag) : LONGCARD ;
  51.           CODE -120 ;
  52.  
  53. PROCEDURE IsVillageScreen(screen{R.A0} : ScreenPtr) : BOOLEAN ;
  54.           CODE -66 ;
  55.  
  56. PROCEDURE VillageRectFill(screen{R.A0}  : ScreenPtr ;
  57.                           fillrec{R.A1} : vil.VilFillRecordPtr) : LONGINT ;
  58.                           CODE -78 ;
  59.  
  60. PROCEDURE VillageBlitCopy(screen{R.A0} : ScreenPtr ;
  61.                           record{R.A1} : vil.VilCopyRecordPtr) : LONGINT ;
  62.           CODE -54 ;
  63.  
  64. PROCEDURE WaitVillageBlit ;
  65.           CODE -60 ;
  66.  
  67. PROCEDURE VillageModeRequest(tags{R.A0} : TagItemPtr) : LONGCARD ;
  68.           CODE -84 ;
  69. PROCEDURE VillageModeList(memorykey{R.A0} : RememberPtr ;
  70.                           tags{R.A1}      : TagItemPtr) : ListPtr ;
  71.           CODE -90 ;
  72. PROCEDURE VillageBestModeID(tags{R.A0} : TagItemPtr) : LONGCARD ;
  73.           CODE -108 ;
  74.  
  75. PROCEDURE VillageGetBufAddr(screen{R.A0} : ScreenPtr ;
  76.                             num{R.D0}    : LONGCARD) : ADDRESS ;
  77.           CODE -126 ;
  78. PROCEDURE VillageSetDisplayBuf(screen{R.A0} : ScreenPtr ;
  79.                                num{R.D0}    : LONGCARD) ;
  80.           CODE -132 ;
  81.  
  82.  
  83. PROCEDURE VillageSetSegment(segnum{R.D0} : LONGCARD) ;
  84.           CODE -96 ;
  85. PROCEDURE VillageGetSegment ;
  86.           CODE -102 ;
  87.  
  88.  
  89. END VilIntuiSupL.lib2
  90.